Suspect links

Hi,

Is there a way to get the history of suspect links that have been cleared?

Thanks

 

 

 

 


A_Alers - Thu Jul 23 10:52:05 EDT 2015

Re: Suspect links
Richard_Hesketh - Thu Jul 23 11:38:47 EDT 2015

They're history records, but of an undocumented type. Luckily it's easy to discover if you just loop through history records of an object (on which you've cleared some suspect links) asking the type of each one.

The following code (designed to minimise memory usage, and maximise readability, if it looks a bit pedestrian) reports on all cleared suspect links for all objects in the display set of the current module. Hope it helps...

Module modThis = current
Object objThis
History histRec
Buffer bufOutput = create

for objThis in modThis do
{
    for histRec in objThis do
    {
        if (histRec.type == commentObject)
        {
            bufOutput += "["
            bufOutput += identifier objThis
            bufOutput += "] "
            bufOutput += histRec.date ""
            bufOutput += " - "
            bufOutput += histRec.author
            bufOutput += " - "
            bufOutput += histRec.plainNewValue
            bufOutput += "\n"
        }
    }
}

print tempStringOf bufOutput

delete bufOutput

Re: Suspect links
A_Alers - Thu Jul 23 12:31:43 EDT 2015

Richard_Hesketh - Thu Jul 23 11:38:47 EDT 2015

They're history records, but of an undocumented type. Luckily it's easy to discover if you just loop through history records of an object (on which you've cleared some suspect links) asking the type of each one.

The following code (designed to minimise memory usage, and maximise readability, if it looks a bit pedestrian) reports on all cleared suspect links for all objects in the display set of the current module. Hope it helps...

Module modThis = current
Object objThis
History histRec
Buffer bufOutput = create

for objThis in modThis do
{
    for histRec in objThis do
    {
        if (histRec.type == commentObject)
        {
            bufOutput += "["
            bufOutput += identifier objThis
            bufOutput += "] "
            bufOutput += histRec.date ""
            bufOutput += " - "
            bufOutput += histRec.author
            bufOutput += " - "
            bufOutput += histRec.plainNewValue
            bufOutput += "\n"
        }
    }
}

print tempStringOf bufOutput

delete bufOutput

Thank you!!!!